excel vba制作登录窗口-excel中利用VBA制作登录验证窗口

系统登录在很多地方都需要用到，当用户知道密码或者权限满足才能进入系统，这也是保护信息的一种手段。那再Excel中如何设计一个系统登录的界面？

下面的示例就是一个登录设置界面。当我们输入的字符串与系统设置一致时，即可登录成功。这里设置了有限制的输入，3次输入错误后即强制退出。

1、实现登录，这里需要利用到循环语句if...else判断用户密码是否正确。限制用户不停尝试，这里利用到do...loop语句循环控制。这是主要的思路。

2、启动excel，选择工具--宏---visual basic编辑器，也可以按住Alt+F11键进入。

3、进入到VB编辑器以后，在VB编辑器的菜单选项中的插入菜单下，选择插入模块。

4、插入之后，在我们的工程窗体中就会出现一个模块选项，用鼠标双击一下，就会在右边的窗口中出现一个代码编辑区。

5、现在我们的任务就是开始怎么进行编程了，我们首先建立一个login的程序，在下面进行代码录入就完成了。

Sub login()
    
    Dim p As String
    Dim i As Integer
    Do
        p = InputBox("请输入密码")
        If p = "admin" Then
            Exit Do
        Else
            MsgBox "请输入正确密码！"
        End If
        i = i + 1
    Loop While i < 3
    If i > 3 Then
        MsgBox "验证失败！请退出！"
        Application.Quit
    Else
        MsgBox "欢迎进入系统！"
    End If
End Sub

End Sub

6、代码录入完毕之后，安装F5键进行执行调试.

7、结果验证，你可以进行三种尝试，一种是按照系统基于的用户名输入，一种是不是系统给予的输入，再一种是超过3次输入，因为这样做的目的是为了验证我们编写过程到底有没有错误